home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.004 / xemacs-1 / xemacs-19.13 / src / tooltalk.h < prev    next >
Encoding:
C/C++ Source or Header  |  1995-05-25  |  2.1 KB  |  59 lines
  1. /* ToolTalk Interface.
  2.    Copyright (C) 1993 Sun Microsystems, Inc.
  3.  
  4. This file is part of XEmacs.
  5.  
  6. XEmacs is free software; you can redistribute it and/or modify it
  7. under the terms of the GNU General Public License as published by the
  8. Free Software Foundation; either version 2, or (at your option) any
  9. later version.
  10.  
  11. XEmacs is distributed in the hope that it will be useful, but WITHOUT
  12. ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13. FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14. for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with XEmacs; see the file COPYING.  If not, write to the Free
  18. Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  
  20. */
  21.  
  22. /* Synched up with: Not in FSF. */
  23.  
  24. #ifndef _XEMACS_TOOLTALK_H_
  25. #define _XEMACS_TOOLTALK_H_
  26.  
  27. struct Lisp_Tooltalk_Message;
  28. DECLARE_LRECORD (tooltalk_message, struct Lisp_Tooltalk_Message);
  29. #define XTOOLTALK_MESSAGE(x) XRECORD (x, tooltalk_message, struct Lisp_Tooltalk_Message)
  30. #define XSETTOOLTALK_MESSAGE(x, p) XSETRECORD (x, p, tooltalk_message)
  31. #define TOOLTALK_MESSAGEP(x) RECORDP (x, tooltalk_message)
  32. #define CHECK_TOOLTALK_MESSAGE(x, i) CHECK_RECORD (x, tooltalk_message)
  33.  
  34. struct Lisp_Tooltalk_Pattern;
  35. DECLARE_LRECORD (tooltalk_pattern, struct Lisp_Tooltalk_Pattern);
  36. #define XTOOLTALK_PATTERN(x) XRECORD (x, tooltalk_pattern, struct Lisp_Tooltalk_Pattern)
  37. #define XSETTOOLTALK_PATTERN(x, p) XSETRECORD (x, p, tooltalk_pattern)
  38. #define TOOLTALK_PATTERNP(x) RECORDP (x, tooltalk_pattern)
  39. #define CHECK_TOOLTALK_PATTERN(x, i) CHECK_RECORD (x, tooltalk_pattern)
  40.  
  41. #define TOOLTALK_MESSAGE_KEY 100
  42. #define TOOLTALK_PATTERN_KEY 101
  43.  
  44. #define CHECK_TOOLTALK_CONSTANT(x, i) \
  45.   { if ((!INTP (x)) && (!SYMBOLP (x))) x = wrong_type_argument (Qsymbolp, (x)); }
  46.  
  47. #define VALID_TOOLTALK_MESSAGEP(m) \
  48.    (m && (tt_ptr_error (m) == TT_OK))
  49.  
  50. #define VALID_TOOLTALK_PATTERNP(p) \
  51.    (p && (tt_ptr_error (p) == TT_OK))
  52.  
  53. extern Lisp_Object box_tooltalk_message (Tt_message m);
  54. extern Tt_message unbox_tooltalk_message (Lisp_Object msg);
  55.  
  56. extern Lisp_Object Qtooltalk_error;
  57.  
  58. #endif /* _XEMACS_TOOLTALK_H_ */
  59.